home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 33MASTER.DSK / MAKE TEXT.bas < prev    next >
BASIC Source File  |  2014-09-09  |  634b  |  23 lines

  1. 5  REM   MAKE TEXT
  2. 10  DIM A$(100):I = 0
  3. 20 D$ =  CHR$(4): REM  CTRL D
  4. 30  HOME : TEXT 
  5. 40  PRINT "YOU GET TO TYPE ONE STRING AT A TIME."
  6. 50  PRINT "A STRING MAY HAVE UP TO 239 CHARACTERS."
  7. 60  PRINT "THIS PROGRAM LETS YOU WRITE TEXT FILES.      "
  8. 70  PRINT :I = I +1
  9. 80  PRINT "(PRESS THE RETURN KEY TO QUIT.)
  10. 90  PRINT "TYPE STRING #";I;": ";
  11. 100  INPUT "";A$(I)
  12. 110  IF A$(I) < >"" GOTO 60
  13. 120  PRINT 
  14. 130  INPUT "WHAT FILE NAME? ";N$
  15. 140  PRINT D$;"OPEN ";N$
  16. 150  PRINT D$"DELETE ";N$
  17. 160  PRINT D$;"OPEN ";N$
  18. 170  PRINT D$;"WRITE ";N$
  19. 180  PRINT I -1
  20. 190  FOR J = 1 TO I -1
  21. 200 : PRINT A$(J)
  22. 210  NEXT J
  23. 220  PRINT D$;"CLOSE ";N$